home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Magazin: Amiga-CD 1996 May & June
/
Amiga-CD 1996 #5-6.iso
/
grafik
/
animationen
/
295-kopieren
< prev
next >
Wrap
AmigaDOS Script File
|
1996-03-22
|
750b
|
28 lines
.key copytarget
.bra {
.ket }
if "{copytarget}" EQ ""
unset bla
:c/Requestfile20 RAM: DRAWERSONLY >env:bla
if warn
:c/Requestchoice20 >nil: "Information" "Kopiervorgang abbgebrochen!" ok
quit 0
endif
.def copytarget $bla
endif
:c/checkdevavail {copytarget} 2497428
if warn
:c/requestchoice20 >nil: Information "Nicht genug Platz vorhanden!" ok
else
copy >nil: ssa-org:295_#? {copytarget}
copy >nil: ssa-org:mod.test {copytarget}
cd {copytarget}
if not exists SSAMultiplay
copy >nil: ssa-org:SSAMultiplay/#? all SSAMultiPlay
endif
cd ssa-org:
if `getenv request` EQ "YES"
:c/requestchoice20 >nil: Information "Kopiervorgang beendet!" ok PUBSCREEN Navigator
endif
endif